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INGRATITUDE? 


Last month | appealed to readers for contributions: for problems 
from beginners, and for crumbs of wisdom from more sophisticated 
programmers. Unfortunately the response has consisted mainly of 
Problems - unanswerable - from those who know more than | do, and 
crumbs of wisdom from beginners. But ‘Thank You! ' all the same 
to those who have written in: and equally to those who intend to, 
‘but have not yet got round to it, The selection of correspondance. 
overleaf does not quite exactly represent the actual texts of 
letters received. 
ke 

Any machine can go.wrong. Last month my printer failed, 1t needed 
a minor repair. | made every effort to get this done, even journeying 
to SHARP's headquarters in Manchester: and individuals at SHARP 
‘realising the urgency, made all the efforts they were capable of. 
Nevertheless | was without the use of the machine for over 2 month. 
't would seem that PC 1500s are not done by the Computer Service 
Department, but by the Calculator Service Department; a PC 1500 
arriving at SHARP will take 6 working days before it even reaches 

this department ~ who will then send it out to be repaired. 
| am therefore of the opinion that SHARP are just not organised 
“to be able to give us the service to which we are entitled. 
It may be that my unfortunate experience is unique. So that | can 
form a more unbiased opinion, | would be very grateful indeed if 
readers,who have had to have repairs done, would write and give 
details of how they fared, whether well or badly. (Your letters 
on this subject will be treated as strictly confidential). 


ee 
A number of readers have written in because they could not RUN 
programs from this magazine. In every case, it was because they 
had copied them incorrectly. | am a'ways happy to debug your programs 
for you: but you MUST enclose a listing of what you have been trying 
to RUN: | cannot do this by remote control. « 
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LETTERS TO THE =DITOR 


Dear Sir, 
The program you printed in tre last issue did not look 
as if it would work, so | altered it. It still did not work, 
so | altered it some more. Now it is no good at all. Please put it 
right. ! have not enclosed a listing. 
Yours 
Dear Sir, 
| enclose my entry for your competition, which | confidently 
expect to win. | did not like the Rules, so | have changed them. 
Please send my prize immediately. 
Yours 
bot 
Dear Sir, 
Herewith a little program for testing whether 2 and 2 
make 4. 
10: INPUT "DO YOU WISH TO SEE IF 2 AND 2 MAKE 4? 
ANSWER YES (Y) OR NO (N)"'; AS 
20. IF AS = "¥" GOTO 50 
30° «IF AS " GOTO 110 
50 X-2 
60 Y=2 
JO Z = X+¥ 
80 IF Z = 2 PRINT "YES" 
110 END 
Dear Sir, 


Please publish the enclosed program for demodulating infuriants, 
together with the accompanying explanation of how it works, consisting 
of 33 pages of hastily handwritten notes. 

45007: READ P,Q,R 
45008: PAINT (P/LN ( SIN ( O/ INT (P#R) - ABS EXP (P* 
1/LoG (@ - QP))))))) 
45005: DATA 1,1,1 
Yours 


Dear Sir, oe 


i find your magazine absolutely fascinating, and only wish 
that | could understand some of it. Please,what is "BASIC''? 
Yours 


Dear Sir, 
1 do not think much of the programs in your magazine. They 
are not nearly as good as the ones | have written myself, but | am 
not going to send them to you because | hope to market them myself. 
Anyway, they are better than your’ ones. 
Yours 


Zale ie 
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HOW THE PC 15@@ HELPS 
PRODUCE STATUS 15e0 


1 have been unwell,and exiled from my typewriter, which accounts for 
the possible lateness of the magazine, and for the development of the 
TEXT-HANDLING prosram with the aid of which this article is written. 
It is still rather verminous, but as soon 1 can set rid of the bugs 
Twill print it. 

There are a number of ways in which the PC 15@@ helps to produce this 
newsletter, as indeed it should do. 1 will leave out for the moment 


oll those programs and subroutines designed to examine the MEMORY MAP 
and other workings of the computer itse!f. Since these tend to alter 
the material-they are intended to examine, using them is rather 1i 
trying to perform brain-sursery on ones own head, without a mirror 


The MAILING-LIST is fully computerised, and ] prefer it to most 
commercial Database systems. Freedom from Menu- ven tyranny leaves 
© lot more space for data: and if : need a particular application it 
only takes a few minutes to program it in, ond delete afterwards. 
We have of course a rather elementary ACCOUNTS program, and a STATISTICS 
Proeram which indicates that bu the middie of 1987 the entire Population 
of the universe will be reading this newsletter, - indeed some of them 
will be ob ed to read 2 copies! 1i could of course be possible that 
there is an error in the program, om in my data. (While on the subject 
of errors, !et me take this opporturity to apologise for some unevenness 
jm the margins of this article = arother bus not yet sorted our>. 


There is an INDEX program, which has worked very smooth!iy on.other 
applications, ond which will be used for an index to each volume. And 

of course there is the TITLE program which is updated each month to 
produce the heading on the front pase. S!! these | hope to bring you in due 
course. First, the TITLE.Uarw the lettering bu chanaine the increments 

to X& Y. 


3:"U"CLEAR + 12@:LPRINT "1508" 
GRAPH 
S:ROTATE 1:COLOR 148:NEXT K an 
@: X=188: Y=8 15@: TEXT +L 3 
6:GOSUB 422: 188? sora 
GLCURSOR (2, > 
: SORGN 
2: TEXT :CSIZE 
LF 14: %=8:Y: 
3@6:CS1ZE 2 
For K=170 5 31G:LPRINT " APR 


IL" 
einen 311:GLCURSOR (x-48 


7 

Cee B12:LPRINT " 198 

se 

35: KEX45: Y=Y-5, 

: 320: X=K+1:Y=Y-1 
aeiceiee 338:NEXT F 

331: RETURN 

é 4@0:FOR F=1TO 4 
Ee ss 22}: CLCURSOR (%, Y9 
7@:LPRINT "STATUS 486:CSIZE 3 


418:LPRINT "UOL.1" 
€11:GLCURSOR (x-48 
P22) 
412:LPRINT "NO. 3" 
428: X=X41: Y=Y-) 
: 438:NEXT F 
115:GLCURSOR (Xx, Y? 236: RETURN 
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DISTRESS SIGNALS 


E.MACMILLAN is developing a program for forecasting Football Pools. 
After setting up a set of arrays, A(12), B(12) Z(12), 
he has difficulty in addressing them indirectly 


The problem is not quite clear, but 1 imagine it can be solved 
by using 2-dimensional arrays, i.e. - DIM A(26,12) 
Try this: 

10: DIM A(26,12): WAIT O: CLS 

20: FOR J = 1 TO 26 

30: FOR K = 1 TO 12 


4Q: CURSOR 2: PRINT J; K 
50: CURSOR 9: INPUT A(J,K) 


60: CLS 
70: NEXT K 
80: NEXT J 


L.P. GOODHEW (see Distress Signals last month) says "Of course I knew 
all the time how to draw a circle! I just wanted to see 
if you knew! But how do you draw a spiral?” 


See 'MINDBOGGLE CORNER! 
Dr.A.NICHOLSON asks "What exactly is a CHECKSUM ERROR? (ERROR 44)" 


This is a safeguard which prevents @ program from being CLOADed 
incorrectly. Every so often, when. you CSAVE, probably every 256 
bytes, an extra byte is inserted which contains the sum of the values 
of the previous 256 bytes. If 2 byte is corrupted on CLOADing, the 
sum CLOADed will not correspond to the sum CSAVEd, and CLOADing 

will be halted.A precaution to prevent two wrongs making a right,is 
normally to multiply each successive byte value by a successive 
prime before summing. To circumvent this safeguard see' SALVAGE? 

on page 25 . Information supplied by TIM LANDON, who asks.....- 


"It seems when you MERGE 2 programs, you cannot edit the first, nor 
RUN the second, except by DEF (label). Is there a way round 
this?" 


You may sometimes be able to GOTO (label) in the second program 
after you have scrolled down to this program. To edit the first 
Program, execute POKE 30825, PEEK 30821, PEEK 30822 

However you will not now probably be able to edit the second 
program. To make two separate MERGEd programs into a single 
continuous program, see *SUPERMERGE' on page 25. 


CHRISTOPHER LEDSAM asks “How can you do 3-dimensional drawings with 
PC 1500?" 


Presumably you would make use of the program in the Applications 
Manual for converting Polar coordinates to Rectangular ones, and 
vice versa. It all depends what exactly you want to do. A good 
book on Computer Aided Design would be helpful: but it is 
heavy going, and programs occupy a lot of space in memory. 


| recommend 
“PRINCIPLES OF INTERACTIVE COMPUTER GRAPHICS" by 
W.M.Newman & R.F.Sproull, (McGraw-Hill, £7.95) 


particularly chapters 20 to 25, also 
"CREATIVE PERSPECTIVE" by Robert Gill (Thames and Hudson, £2.50) 
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PEEK, POKE & MEMORY - III 


There is one more feature to be examined before we leave the program 
area for a while. Last month we saw how the first two bytes of each 
line contain the Line Number. The address immediately following 
these contains the number of bytes in the line (including itself, 
but not including the two bytes holding the Line Number, nor the 

13 at the end). If you alter this , you will normally tie your program 
into knots: line numbers will appear as text, and vice versa. 


There is one exception to this. If in this address you POXE a figure 
which is the sum of: a) its contents b) the contents of the 
corresponding address in the next line c) and 3 , then you will 
find that the second line has disappeared! Try this:- 


10 REM A 
20 BEEP 5 
30 END 


Now POKE 14535 (or 8391, or 16583, u and you will find that 


Line 20 has ‘disappeared, and cannot be listed. But when you RUN 
the program it is executed just the same! However it is important 
to remember that it will only be executed in sequence following the 
previous line: you cannot GOTO or RETURN to. a line concealed 

in this way. Nor should it form the beginning or end of a FOR-NEXT 
Joop. 


You can in fact conceal a number of lines sequentially in this way. 
Add the contents of the 3rd byte of each. line you wish to hide; 
add the sum to the third byte in the line preceding the lines to 
be hidden; add 3 for each line to be hidden; POKE the sum (maximum 
255, but maximum 80 is safer) into the 3rd byte of the line preceding 
the lines to be hidden: and your program is now protected against 
prying eyes. To remove this protection, just restore the original 
quantity into the address into which you have POKEd. You will 
find that much of the software you buy commercially makes use 

of this method of protection. Next month we shall print a program 
for stripping this protection. 


Outside the program area, between addresses 28672 and 32767, are 
many counters and pointers. Here is a useful on 
As you have probably discovered,there is a limit to how far 
you can Linefeed in reverse. The maxima are: 
in TEXT mode, CSIZE 2, LF-24 
csize 1, LF-50 
in GRAPH mode..... HY = 510 


Try this, from the keyboard 

1) TEXT 

2) CSIZE 2 

3) LF 4B 

4) LF -24 

5) POKE 31204, 0,1 

6) LF-24 4 ' 
and you will find you have wound back your whole LF 48 into the 
machine. This can be useful in programs which are inhibited by the 
limit on winding back. The addresses 31204 and 31205 hold up 
to 510 (in 256ary) - maxima 1 in 31204, and 255 in 31205: and you have 
deceived the machine into thinking that no reverse linefeed has been 
performed. Use this facility with care, so as not to getamass of 
paper tangled up de. And note that all the: addresses from 28672 
onwards are outside the program area, and are not changed by what 
memory add-on you may have inserted. 


(to be continued) 
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SALVAGE 


This process is for the purpose of salvaging a program which has partially 
CLOADed, and then has shown ERROR 4 shortly before the end. It is no use 

for a program which has not recognised a File-Name, since under this condition 
it has not begun to CLOAD. 


The process takes about 5 or 10 minutes to execute: but this is still quicker 
than re-writing 5 or 10K. It is quite safe, as tong as instructions are 
followed exactly. It must of course be executed from the keyboard: to 

enter it in program form would be to destroy the program you have partly 
CLOADed. 


KEY MODE 
1) POKE 30823, 254, 254 RUN 
2) Scroll through from start of program PRO 


to inspect what is in memory. 


3) Find by PEEKing*the address of the 13 at RUN 
the end of the last uncorrupted line which 
you wish to preserve. Call this add-ess Z 


4) POKE 30823, PEEK 30821, PEEK 30822 RUN 
5) POKE (PEEK 30822 + 256 * PEEK 308211 ,0 RUN 
6) POKE 2+1, 255 _ RUN 
7) POKE 30823, INT (( 2+2)/256) RUN 
8) POKE 30824, 242 - 2568PEEK 30823 RUN 


This program, as far as it goes, is now perfectly restored, and may be 
editec or added to in the normal way. It can also be used instead of 
RESCUE OPERATION (page 5), for which purpose step 6) can be omitted. 


*Not as hard as it sounds. Once you have hit a 13 in an address less 
than the one you are searching for, call this A . PEEK (A+3). This gives 
the number of bytes in the line. PEEK (A+3+(PEEK (2+3))). This will be 
13 again - and so on. 


SUPERMERGE 


To MERGE 2 programs , so that they become @ single continuous program:~ 


Part 1 a) CLOAD the first program. 
b) add to it 2 last line---- 65279: REM 
c) find STATUS 2. Call this S$ 


Part 2 a) MERGE the 2nd program 
b) POKE S-1, 13 
c) POKE S-2, 33 
d) POKE 30825, PEEK 30821, PEEK 30822 
e) POKE'S-5, & 


Part 3. a) Unless every line number in the first program is smaller 
than any line number in the 2nd program, MERGE "'RENUMBER' (page 17) 
b) RUN —""RENUMBER" 
c) delete line 65279, which now reads REM} (but will have a new line no.) 


You-now have one ordinary continuous program. 
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BOLENVANID 


OF course you do not believe in astrology. The fact that you happen to know 
the sign under which you were born (your 'Sun Sign') is entirely accidental. 
If you glance at your horoscope in the papers, this is purely for amusement. 
Yet although most people know their Birth-Sign, very few know their 
Ascendant, or 'Rising Sign’. This is the sign rising on the Eastern horizon 
at the time of birth. Astrologers believe that this is very nearly as 
important as the Birth-Sign:., and sometimes more so. Indeed, you may well 
find on occasion that the forecast in the papers for your Ascendant is more 
relevant than the one for your Birth-Sigon. 


This program will find your Ascendant in 2 few seconds. Dates should be 
entered in figures: times by 24-hour clock, in the form hh.mno 

All times in GREENWICH MEAN TIME: you must correct for Summer Time, Zone 
Time, etc. Latitudes and Longtitudes are entered in degrees and minutes - 
@d.mm Longtitude West is entered as plus, and Longtitude East as minus. 
(Only valid for Northern Hemisphere, not North of Arctic Circle) 


Note: Since the sign of the Ascendant changes every 2 hours, if your 
Ascendant is very near the beginning or end of a Sign, and you are not quite 
sure of the time of birth, the Ascendant could possibly be in the neighbouring 
sign. There are 30 degrees in a sign, and | degree equals 4 minutes of time. 


TEST: for @ birth in West London ( 51° 32' North, 00° 07' West) at 12.15 pm 
on April 15, 1923, The Ascendant is 15° LEO - 


[program on next page) 


MINDBOGGLE CORNER 


Drawing a spiral is only too easy. But an elliptical spirel? 

A multi-colouréd elliptical spiral? A small prize for the shortest 
program which draws this. Each program must stert ARUN, and be 
entirely self-contained. There must be INPUTS to control the 

size of the major axis - INPUT "'ri".and the minor axis ~ INPUT "r2". 
Also the density of convolutions must be controlled by INPUT "d"', 

The very shortest program which does not transgress thése rules 

will be the winner - closing date 17th April. 


MARCH MINDBOGGLER 
18:DIM As<ss) 


28:FOR F=97TO 37 On the left is the solution. A number 
STEP -3 of readers managed to reconstruct the 
3B:READ AS(F) progrem, and then spoilt their chances 
4@8:NEXT F by making changes other than to xx or nn, 
SO: ZZ2$=AS(91)+AS¢ although this was clearly forbidden. 
97)+AS(43)4+08¢ The greatest difficulty was with line 70, 
99)+AS(43)+ASC even though the specification “the 
BS) +AS(4B)+ASC 


Solution mst include a correct listing" 


é _322+AS(85) gives a pretty good hint. Several readers 
SNE oa cee missed the dupliceted "7" and claimed 
P@:LLIST. @ “CASSETUE". The GPO will not accept these 
Seinen Ah ease beasts, since their byte is poisonous. 


cm, "D", "E*, 
, 


"6" The winner is: JOHN MACK 


J L 

"N50", Let me know what memory you have, and I'11 

a" put @ program or two on the cassette. 
92:DATA "R", "5", " 

T, "Dy *ue 
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ASCENDANTS 


1: TEXT =CLEAR =: 


N1S:LPRINT NIS 
68: INPUT "LATITUD 
31, “LONGTI 
TUDE" 3 Leb 
'=L8715 
198: GosuB 2488 
118:L2=DEG L1+1E-8 

$S2=DEG S1:R2= 
15*S2+1E-4 
138: A2=ATN ((COS R 
227¢-((SIN EDK 
<TAN L2)+<(COS 
E)*(SIN R22) 
148:82=92+188 
15@:1F S1>12AND S1 
<18AND A2<BLET 
AZ=A2+188 
160:1F (A2>=8)%(S1 
D=18)LET A2=A2 
-188 
178: 1F @2<@AND S1> 
IBLET A2=A2+18 
a 


188: 


NT (82738)+ 
=A2-3B*(K- 
1):GOSUB 788+K 
288:LPRINT “LAT. "; 
LI:LPRINT “LON 
6'5L 
308:43=DMS A3:LF 1 
sUSING "SHR" 
389:LPRINT " 


318:LCURSOR 4 
LPRINT 83. 
CSIZE 3:LF -2: 
LPRINT "o"3:LF 
1:CS1ZE 2: 
LPRINT " “39s 

328:LF 3:WAIT @ 

33@:FOR F=1TO 333 

34@:PRINT “ASC=";9 
33:GPRINT "878 
S587?"3:PRINT ” 
“Fas 

35@:NEXT F:END 

7O1:AS="ARIES": 
RETURN 

702: AS="TAURUS": 
RETURN 

703: 9S="GEMINI": 
RETURN 

784: 9S="CANCER": 
RETURN 

705: 9$="LEO": 
RETURN 

706: A$="UIRGO": 
RETURN 

707: AS="LIBRA": 
RETURN 


- the program 


788: AS="SCORP 10": 
RE 


RN 


DES BT~-AAZ2 
2588: RS=1958 
2518:PAUSE “BIRTH 
DATE" 
2528: INPUT "YEAR 
"3U, “MONTH " 
3U, "DAY "3 
2538:LPRINT W3U;U 
2548: 1F U<RSLET R 
S=1917 


'S: G: =] 
2568:GOSUB 2649 
2578: S=1:H=U:G=U: 

Wd 


2688:GOSUB 26428 
2618: XX=1-J: USING 
HeRR. GRY 
2638:GOTO 2728 
2648: 1F G-3>=OLET 


210: l=1-2: 
GOTO 2678 
: 13 2=¢-66 
-3)-12)*38.6 
~.5:GOSUB 27 


1 
2678: 


#142: PHO’ 
2688:GOSUB 2718:1 

=1-2:2=H7400 
2698:GOSUB 2718:1 

=1+2-387 
2788: RETURN 
271@:X=I1NT ABS 2: 
‘SGN ZX: 


RETURN 
2720: INPUT "GNT=" 
361:G2=DEG & 


2738: ST=BT+XX¥AA+ 
G2+62724xAaa 

2748: CR=1.773682* 
(U-RS):ST=ST 
-CR-LC 

2758:S1=DMS ((ST* 
24-INT (S772 
4))*24): 
RETURN 
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RESERVED WORDS 


CSIZE 
GRAPH 
GLCURSOR 
LCURSOR 
SORGN 
ROTATE 
TEXT 


RMT 


CURSOR 
USING 
cLsS 
CLOAD. 
MERGE 
LIST 
INPUT 
GCURSOR 


numerical order of code} 


116 ACS 
11? ATN 
118 LN 
119 LOG 
128 EXP 
i21 
122 LEFT$ 
123 M1Ds 


167 RESTORE 
RANDOM 
RADIAN 
1 REN 
sToP 
STEP 
THEN 

S TRON 
TROFF 
TO 

173 WAIT 
18@ ERROR 
LOCK 
182 UNLOCK 


MAY will contain a review of‘EASIFILE' - 2 new Database program bu 


Ian Traynor - also 


YET MORE PEEK & POKE - OUTLINE MEMORY MAP - 


GOLF - MAILING LIST - 


SAFECRACKER - and 


the usual regular features 
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11 Bury New Road, Prestwich, Manchester M25 8JZ Telephone 061-798 7613 (24-hour-service) 


ELCAN = 
ELECTRONICS 


FOR SHARP PCi500_/ TANDY Pc. 


EASI-CALG 1500 

“Our most popular progran” 

A "spreadsheet" program. Ideal 
for problem solving and “What 
if...2" types of questions. 
Up to 26cols. or 99 rows. 
Needs 8K RAM,CE150 and tape 
recorder. ? 
Data quality tape and 30page 
manual. 


KAN PRICE £19.95 


NEW!! NEW! 


EASI-FILB 1500 

Data bese management progrem that acts es a “cerd-index system in your 
pocket!" Program features rapid sorting techniques searching on 

3 levels or on key words. Max. no, of records per tape 25. 

Ideal for mailing Mists, snall stock control systems, etc. 

BLKAN PRICE £19.95 


SHARP CE-15A PROGRAM TAPE 
0 minute software tepe contains 14 programs not listed in the 


applications manual. ELKAN PRICE £14.95 
TEXT HANDLING PROGRAM 

Our first progran for the CE-153 software penel.Needs 4K or 8K RAM. 

Each of the 140 squares can hold up to 45 characters each. 

Very fast. A unique progran. ELKAN PRICE £19.95 
SALES PRESENTATIONS 

Here's a fantastic idea for all modern sales people. This progran 


tums your SHARP PC1500/TANDY PC-2 into the greatest sales aid ever 

to increase your sales and boost your income. 

For all salesnen out of the office, on-site, in a shop or supermarket 

or on-the-road. Uses 4 colour graphics end sound! 

This program took 4 months to write - and can be ae to your 

Andividual needs. Write to us giving details of your sales problem! 
“Full hardware/software package Approx. ELKAN PRICE £500 
Software only Approx. BLKAN PRICE £125 


SOONES 


 EASI-TREND 1500 - a statistical forecasting progran 
“STOCK CONTROL PROGRAM for the 1500. 


Send cash, cheque, Visa or Access cari number for quick delivery. 


M11 ELKAN PRICES include V.A.T. (where applicable) and U.K. post and 
packing charges (except for books only) 


Trade, quantity and dealer enquiries all welcome, Write or phone for details. 
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